Read_Password


Purpose   Provides single line input of alpha characters without echoing
          the user's characters on the screen.

Decln.    Read_Password(X,Y,L:byte;Prompt:strScreen;Box:byte;Var
          Str:strScreen);

Remarks   X, Y are the coordinates of the first character of the prompt or
          the first character of the input field if the prompt is null.
          L is the length of the input line.
          Prompt is an optional prompt. The prompt is normally displayed to
          the left of the input field. If the prompt begins with a carat
          '' and the box border is on, the prompt is drawn in the upper
          box border. If the prompt begins with an underscore '_' and the
          box border is on, the prompt is drawn in the lower box border.
          Set the prompt to a null '' if no prompt is required.
          Box is a box code. The codes are the same as for the Box
          procedure in FastTTT5. To suppress the box, use a code of zero.
          Str is the string that will be updated with the user's input.

          Every time a character is input, a '#' character is echoed on the
          screen. This procedure is designed for password input.

          The display characteristics of the input line are contained in
          the global variable RTTT.

          The global variable R_Char is updated with the last character
          pressed by the user. This can be checked to see how the user
          terminated input, e.g. Esc, Up Arrow, etc.

Example

VAR
  PSW : STRING;
BEGIN
    READ_PASSWORD(20,25,20,' ENTER YOUR PASSWORD ',1,PSW');
END;